home *** CD-ROM | disk | FTP | other *** search
- object Form6: TForm6
- Left = 205
- Top = 187
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Setup - Edit Warning Message'
- ClientHeight = 371
- ClientWidth = 638
- Color = clSilver
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object AHMFillBackground1: TAHMFillBackground
- Left = 248
- Top = 16
- Width = 150
- Height = 150
- end
- object AHMFillBackground2: TAHMFillBackground
- Left = 0
- Top = 0
- Width = 638
- Height = 371
- Background = AHMBackground1
- Align = alClient
- end
- object Label1: TLabel
- Left = 48
- Top = 16
- Width = 130
- Height = 21
- Caption = 'Current Message:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Image1: TImage
- Left = 7
- Top = 6
- Width = 31
- Height = 46
- Picture.Data = {<image000.ico>}
- Transparent = True
- end
- object Image2: TImage
- Left = 7
- Top = 147
- Width = 33
- Height = 41
- Picture.Data = {<image001.ico>}
- Transparent = True
- end
- object Label2: TLabel
- Left = 48
- Top = 155
- Width = 108
- Height = 21
- Caption = 'New Message:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Memo1: TMemo
- Left = 37
- Top = 47
- Width = 575
- Height = 81
- TabStop = False
- Color = clSilver
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- object Memo2: TMemo
- Left = 37
- Top = 184
- Width = 575
- Height = 137
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object BitBtn1: TBitBtn
- Left = 224
- Top = 336
- Width = 75
- Height = 25
- Caption = 'Save'
- TabOrder = 2
- OnClick = BitBtn1Click
- Glyph.Data = {
- 5A010000424D5A01000000000000760000002800000012000000130000000100
- 040000000000E400000000000000000000001000000010000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 888888000000888888888888888888000000800000000000000888000000800B
- FBFBFBFBFB08880000008070BFBFBFBFBFB08800000080B0FBFBFBFBFBF08800
- 00008070BFBFBFBFBFB08800000080B77BFBFBFBFBFB78000000807B7FBFBFBF
- BFBF7800000080B777777777777778000000807B7B7EEEE77B78880000008000
- B7B0EEE77778880000008888000EEEE7888888000000888880EEE0E788888800
- 000088880EEE08778888880000008880EEE0888788888800000088880E088888
- 888888000000888880888888888888000000888888888888888888000000}
- end
- object BitBtn2: TBitBtn
- Left = 336
- Top = 336
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 3
- OnClick = BitBtn2Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 333333333333333333333333333333333333333FFF33FF333FFF339993370733
- 999333777FF37FF377733339993000399933333777F777F77733333399970799
- 93333333777F7377733333333999399933333333377737773333333333990993
- 3333333333737F73333333333331013333333333333777FF3333333333910193
- 333333333337773FF3333333399000993333333337377737FF33333399900099
- 93333333773777377FF333399930003999333337773777F777FF339993370733
- 9993337773337333777333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333}
- NumGlyphs = 2
- end
- object AHMBackground1: TAHMBackground
- Gradient.BeginColor = clWhite
- Gradient.EndColor = clNavy
- Gradient.FillStyle = LeftBottom
- Gradient.ColorCount = 250
- Left = 384
- Top = 16
- end
- end
-